home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / ums / IntuiNews1_4a.lha / UMS / Rexx / DFA.intui < prev    next >
Text File  |  1995-08-27  |  1KB  |  68 lines
  1. /*
  2.  
  3.     $VER: DFA.intui 1.0 (27.8.95)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Function:
  9.     Lets DFA handle IntuiNews's address book
  10.  
  11.    History:
  12.     0.1   initial version
  13.     0.2   added "ADD" handling
  14.     0.3   fixed bug in "QUERY" handling
  15.     1.0   released with IntuiNews 1.3
  16.  
  17.    Requires:
  18.     UMSServer 11.28 or newer
  19.     ums.library 11.18 or newer
  20.     DFA 2.25 or newer, at least server running
  21.  
  22.    Example for "ums.config":
  23.     ( IntuiNews.Book "!DFA.intui" )
  24.  
  25. */
  26.  
  27. IF ~SHOW('P','DFA') THEN EXIT 10
  28.  
  29. PARSE ARG Command " " Name "," Addr "," Comment
  30.  
  31. OPTIONS RESULTS
  32. SIGNAL ON ERROR
  33.  
  34. IF Command="QUERY" THEN
  35.  DO
  36.   ADDRESS 'DFA' 'FIRST STEM ADR.'
  37.  
  38.   IF ADR.ADDRESS.24 = 0 THEN ADDRESS 'DFA' 'NEXTSEL STEM ADR.'
  39.  
  40.   DO WHILE 1
  41.    IF ADR.ADDRESS.12~="" THEN
  42.     'ADD "'||ADR.ADDRESS.1 ADR.ADDRESS.2||'" "'||ADR.ADDRESS.12||'" "'||ADR.ADDRESS.15||'"'
  43.    IF ADR.ADDRESS.13~="" THEN
  44.     'ADD "'||ADR.ADDRESS.1 ADR.ADDRESS.2||'" "'||ADR.ADDRESS.13||'" "'||ADR.ADDRESS.15||'"'
  45.    IF ADR.ADDRESS.14~="" THEN
  46.     'ADD "'||ADR.ADDRESS.1 ADR.ADDRESS.2||'" "'||ADR.ADDRESS.14||'" "'||ADR.ADDRESS.15||'"'
  47.  
  48.    ADDRESS 'DFA' 'NEXTSEL STEM ADR.'
  49.   END
  50.  END
  51.  
  52. IF Command="ADD" THEN
  53.  DO
  54.   P=LASTPOS(" ",Name)
  55.   IF P=0 THEN First=""
  56.   ELSE
  57.    DO
  58.     First=LEFT(Name,P-1)
  59.     Name=SUBSTR(Name,P+1)
  60.    END
  61.  
  62.   ADDRESS 'DFA' 'POPUP'
  63.   ADDRESS 'DFA' 'NEW FIRST "'||First||'" NAME "'||Name||'" EMAIL1 "'||Addr||'" COMMENT "'||Comment||'"'
  64.  END
  65.  
  66. ERROR:
  67. EXIT 0
  68.